home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / progs / lib / cl / logop-prims.hi next >
Encoding:
Text File  |  1994-09-27  |  3.4 KB  |  79 lines  |  [TEXT/YHS2]
  1. -- logop-prims.hi -- interface to logical operations on numbers
  2. --
  3. -- author :  Sandra Loosemore
  4. -- date   :  19 June 1993
  5. --
  6.  
  7. interface LogOpPrims where
  8.  
  9. logiorInteger        :: Integer -> Integer -> Integer
  10. logxorInteger        :: Integer -> Integer -> Integer
  11. logandInteger        :: Integer -> Integer -> Integer
  12. logeqvInteger        :: Integer -> Integer -> Integer
  13. lognandInteger        :: Integer -> Integer -> Integer
  14. lognorInteger        :: Integer -> Integer -> Integer
  15. logandc1Integer        :: Integer -> Integer -> Integer
  16. logandc2Integer        :: Integer -> Integer -> Integer
  17. logorc1Integer        :: Integer -> Integer -> Integer
  18. logorc2Integer        :: Integer -> Integer -> Integer
  19. lognotInteger        :: Integer -> Integer
  20. logtestInteger        :: Integer -> Integer -> Integer
  21. logbitpInteger        :: Int -> Integer -> Integer
  22. ashInteger        :: Integer -> Int -> Integer
  23. logcountInteger        :: Integer -> Int
  24. integerLengthInteger    :: Integer -> Int
  25.  
  26. logiorInt        :: Int -> Int -> Int
  27. logxorInt        :: Int -> Int -> Int
  28. logandInt        :: Int -> Int -> Int
  29. logeqvInt        :: Int -> Int -> Int
  30. lognandInt        :: Int -> Int -> Int
  31. lognorInt        :: Int -> Int -> Int
  32. logandc1Int        :: Int -> Int -> Int
  33. logandc2Int        :: Int -> Int -> Int
  34. logorc1Int        :: Int -> Int -> Int
  35. logorc2Int        :: Int -> Int -> Int
  36. lognotInt        :: Int -> Int
  37. logtestInt        :: Int -> Int -> Int
  38. logbitpInt        :: Int -> Int -> Int
  39. ashInt            :: Int -> Int -> Int
  40. logcountInt        :: Int -> Int
  41. integerLengthInt    :: Int -> Int
  42.  
  43. {-#
  44. logiorInteger        :: LispName("logop.logior-integer"), Complexity(4)
  45. logxorInteger        :: LispName("logop.logxor-integer"), Complexity(4)
  46. logandInteger        :: LispName("logop.logand-integer"), Complexity(4)
  47. logeqvInteger        :: LispName("logop.logeqv-integer"), Complexity(4)
  48. lognandInteger        :: LispName("logop.lognand-integer"), Complexity(4)
  49. lognorInteger        :: LispName("logop.lognor-integer"), Complexity(4)
  50. logandc1Integer        :: LispName("logop.logandc1-integer"), Complexity(4)
  51. logandc2Integer        :: LispName("logop.logandc2-integer"), Complexity(4)
  52. logorc1Integer        :: LispName("logop.logorc1-integer"), Complexity(4)
  53. logorc2Integer        :: LispName("logop.logorc2-integer"), Complexity(4)
  54. lognotInteger        :: LispName("logop.lognot-integer"), Complexity(4)
  55. logtestInteger        :: LispName("logop.logtest-integer"), Complexity(4)
  56. logbitpInteger        :: LispName("logop.logbitp-integer"), Complexity(4)
  57. ashInteger        :: LispName("logop.ash-integer"), Complexity(4)
  58. logcountInteger        :: LispName("logop.logcount-integer"), Complexity(4)
  59. integerLengthInteger    :: LispName("logop.integer-length-integer"), Complexity(4)
  60.  
  61. logiorInt        :: LispName("logop.logior-int"), Complexity(2)
  62. logxorInt        :: LispName("logop.logxor-int"), Complexity(2)
  63. logandInt        :: LispName("logop.logand-int"), Complexity(2)
  64. logeqvInt        :: LispName("logop.logeqv-int"), Complexity(2)
  65. lognandInt        :: LispName("logop.lognand-int"), Complexity(2)
  66. lognorInt        :: LispName("logop.lognor-int"), Complexity(2)
  67. logandc1Int        :: LispName("logop.logandc1-int"), Complexity(2)
  68. logandc2Int        :: LispName("logop.logandc2-int"), Complexity(2)
  69. logorc1Int        :: LispName("logop.logorc1-int"), Complexity(2)
  70. logorc2Int        :: LispName("logop.logorc2-int"), Complexity(2)
  71. lognotInt        :: LispName("logop.lognot-int"), Complexity(2)
  72. logtestInt        :: LispName("logop.logtest-int"), Complexity(2)
  73. logbitpInt        :: LispName("logop.logbitp-int"), Complexity(2)
  74. ashInt            :: LispName("logop.ash-int"), Complexity(2)
  75. logcountInt        :: LispName("logop.logcount-int"), Complexity(2)
  76. integerLengthInt    :: LispName("logop.integer-length-int"), Complexity(2)
  77. #-}
  78.  
  79.